Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / apcp.arc / A202A.CMD < prev next >

Wrap

Text File | 1987-01-01 | 10.3 KB | 404 lines

goto menu dial: isfile s8 if success return else endif clear message "│ 202 │" locate 0,8 message s8 locate 0,17 message "│ Washington, DC │" locate 0,49 message s6 locate 0,77 message "│" locate 2,0 transmit "I!" pause 1 transmit "ATZ!" waitfor "OK" transmit "^E!" waitfor "READY" transmit "D" transmit S8 transmit "!" rget s9 rget s9 80 40 rget s9 40 40 rget s9 40 40 mess: find s9 "BUSY" if found assign s7 "M" return else endif find s9 "ANSWER TONE" if found set parity none set databits 8 clear log open s8 alarm 2 exit else endif find s9 "RINGING" if found rget s9 find s9 "RINGING" if not found goto mess else log open s8 message "NO ANSWER - STILL RINGING" log close transmit "^C^D^C" endif else endif return menu: assign s7 " " log close clear message "╔════════════════════════════════════════════════════════════════════════════╗" message "║ A- PC Pursuit Information . 689-2987 V- A & A Micro-Tech ....... 825-0536 ║" message "║ B- PC Pursuit Messages .... 689-3561 W- Data Bit BBS ........... 370-9832 ║" message "║ C- Arquimedes ............. 698-8230 X- Data Board ............. 379-2952 ║" message "║ D- Government BBS ......... 537-1045 Y- Sterling Exchange ...... 435-0836 ║" message "║ E- Darwin ................. 251-9206 Z- AMRAD (Ham Radio) ...... 734-1387 ║" message "║ F- MegaWatts .............. 252-1958 0- Issue Dynamic .......... 734-1796 ║" message "║ G- Information Tech. Center 275-1050 1- BXR Information Corner . 756-6109 ║" message "║ H- Wizard's BBS ........... 322-8678 2- Teleward ............... 941-2386 ║" message "║ I- Computer Connections ... 547-2008 3- Hard Core Colossus ..... 244-9573 ║" message "║ J- Pul's BBS .............. 498-7283 4- Cosmos Club ............ 320-2491 ║" message "║ K- Capitol PC User's Group 949-8848 5- B.A.S.I.C. ............. 365-0991 ║" message "║ L- PC TIE ................. 972-1622 6- Capital PC Monitor ..... 424-5817 ║" message "║ M- Death Star ............. 839-0705 7- Colossus III ........... 428-9044 ║" message "║ N- Iceman's Castle ........ 654-6872 8- Sugarland BBS .......... 340-8519 ║" message "║ O- Telecommunications BBS . 478-9850 9- Colossus II ............ 656-0932 ║" message "║ P- Loading Dock ........... 921-9650 @- PC Tech Journal ........ 576-7285 ║" message "║ Q- Digital Data Exchange .. 384-2587 #- Cap. PC Stat. SIG ...... 596-3569 ║" message "║ R- Technical Info. Exchange 560-0979 $- XTurbo # 1 ............. 256-8012 ║" message "║ S- Grafboard .............. 370-3885 %- ........................ ...-.... ║" message "║ T- V.A. Info. Tech. Center 376-2184 &- ........................ ...-.... ║" message "║ U- Germantown Pro Exchange 428-3418 *- ........................ ...-.... ║" message "╚════════════════════════════════════════════════════════════════════════════╝" locate 23,2 get s0 top: find s0 "A" if found assign s8 "689-2987" assign s6 "PC-Pursuit Information " gosub dial else endif find s0 "B" if found assign s8 "689-3561" assign s6 "PC-Pursuit Messages " gosub dial else endif find s0 "C" if found assign s8 "698-8230" assign s6 "Arquimedes " gosub dial else endif find s0 "D" if found assign s8 "537-1045" assign s6 "Government BBS " gosub dial else endif find s0 "E" if found assign s8 "251-9206" assign s6 "Darwin " gosub dial else endif find s0 "F" if found assign s8 "252-1958" assign s6 "Megawatts " gosub dial else endif find s0 "G" if found assign s8 "275-1050" assign s6 "Information Tech Center " gosub dial else endif find s0 "H" if found assign s8 "322-8678" assign s6 "Wizard's " gosub dial else endif find s0 "I" if found assign s8 "547-2008" assign s6 "Computer Connections PC BD " gosub dial else endif find s0 "J" if found assign s8 "498-7283" assign s6 "Pyl'S " gosub dial else endif find s0 "K" if found assign s8 "949-8848" assign s6 "Capitol PC User's Group " gosub dial else endif find s0 "L" if found assign s8 "972-1622" assign s6 "PC T.I.E. " gosub dial else endif find s0 "M" if found assign s8 "839-0705" assign s6 "Death Star BBS " gosub dial else endif find s0 "N" if found assign s8 "654-6872" assign s6 "Iceman's Castle " gosub dial else endif find s0 "O" if found assign s8 "478-9850" assign s6 "Telecommunications BBS " gosub dial else endif find s0 "P" if found assign s8 "921-9650" assign s6 "The Loading Dock " gosub dial else endif find s0 "Q" if found assign s8 "384-2587" assign s6 "Digital Data Exchange " gosub dial else endif find s0 "R" if found assign s8 "560-0979" assign s6 "Technical Information Exc. " gosub dial else endif find s0 "S" if found assign s8 "370-3885" assign s6 "Grafboard " gosub dial else endif find s0 "T" if found assign s8 "376-2184" assign s6 "V.A. Info technology Ctr. " gosub dial else endif find s0 "U" if found assign s8 "428-3418" assign s6 "Germantown Pro Exchange " gosub dial else endif find s0 "V" if found assign s8 "825-0536" assign s6 "A & A Micro Tech " gosub dial else endif find s0 "W" if found assign s8 "370-9832" assign s6 "Data-Bit BBS " gosub dial else endif find s0 "X" if found assign s8 "379-2952" assign s6 "Data Board " gosub dial else endif find s0 "Y" if found assign s8 "435-0836" assign s6 "Sterling Exchange " gosub dial else endif find s0 "Z" if found assign s8 "734-1387" assign s6 "AMRAD - HAM Radio " gosub dial else endif find s0 "0" if found assign s8 "734-1796" assign s6 "Issue Dynamic " gosub dial else endif find s0 "1" if found assign s8 "756-6109" assign s6 "BXR Information Corner " gosub dial else endif find s0 "2" if found assign s8 "941-2386" assign s6 "Teleward " gosub dial else endif find s0 "3" if found assign s8 "244-9573" assign s6 "Hard Core Colossus " gosub dial else endif find s0 "4" if found assign s8 "320-2491" assign s6 "Cosmos Club " gosub dial else endif find s0 "5" if found assign s8 "365-0991" assign s6 "B.A.S.I.C. " gosub dial else endif find s0 "6" if found assign s8 "424-5817" assign s6 "Capital PC Monitor " gosub dial else endif find s0 "7" if found assign s8 "428-9044" assign s6 "Colossus III " gosub dial else endif find s0 "8" if found assign s8 "340-8519" assign s6 "Sugarland BBS " gosub dial else endif find s0 "9" if found assign s8 "656-0932" assign s6 "Colossus II " gosub dial else endif find s0 "@" if found assign s8 "576-7285" assign s6 "PC Tech Journal " gosub dial else endif find s0 "#" if found assign s8 "596-3569" assign s6 "Capital PC Statistics SIG " gosub dial else endif find s0 "$" if found assign s8 "256-8012" assign s6 "XTurbo #1 " gosub dial else endif goto speedup ; Skip Empty Elements find s0 "%" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "&" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "*" if found assign s8 " - " assign s6 " " gosub dial else endif speedup: find s7 "M" if found assign s7 " " goto top else endif message "All Numbers Connected - Or Did Not Answer" alarm 2 exit